home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / linkkit / modules.d < prev   
Encoding:
Text File  |  1995-04-01  |  1.8 KB  |  59 lines
  1. # Module fⁿr CLISP
  2. # Bruno Haible 1.4.1995
  3.  
  4. # Alle AbhΣngigkeiten von modules.h werden hier gesammelt!
  5.  
  6.  
  7. #ifdef NO_CLISP_H
  8.   #include "lispbibl.c"
  9. #else
  10.   #include "clisp.h"
  11. #endif
  12.  
  13. #ifndef DYNAMIC_MODULES
  14.  
  15. # Anzahl dazugelinkter Module
  16.  
  17. global var uintC module_count =
  18.   #define MODULE(module_name)  1+
  19.   #include "modules.h"
  20.   #undef MODULE
  21.   0;
  22.  
  23. # Tabelle der Module:
  24.   extern uintC subr_tab_data_size;
  25.   extern uintC object_tab_size;
  26.   #define MODULE(module_name)  \
  27.     extern subr_ module__##module_name##__subr_tab[]; \
  28.     extern uintC module__##module_name##__subr_tab_size; \
  29.     extern object module__##module_name##__object_tab[]; \
  30.     extern uintC module__##module_name##__object_tab_size; \
  31.     extern subr_initdata module__##module_name##__subr_tab_initdata[]; \
  32.     extern object_initdata module__##module_name##__object_tab_initdata[]; \
  33.     extern void module__##module_name##__init_function_1(); \
  34.     extern void module__##module_name##__init_function_2();
  35.   #include "modules.h"
  36.   #undef MODULE
  37.   global module_ modules[] =
  38.     { { "clisp",
  39.         (subr_*)&subr_tab_data, &subr_tab_data_size,
  40.         (object*)&object_tab, &object_tab_size,
  41.         TRUE, NULL, NULL, NULL, NULL
  42.       },
  43.       #define MODULE(module_name)  \
  44.         { STRING(module_name), \
  45.           &module__##module_name##__subr_tab[0], &module__##module_name##__subr_tab_size, \
  46.           &module__##module_name##__object_tab[0], &module__##module_name##__object_tab_size, \
  47.           FALSE, \
  48.           &module__##module_name##__subr_tab_initdata[0], \
  49.           &module__##module_name##__object_tab_initdata[0], \
  50.           &module__##module_name##__init_function_1, \
  51.           &module__##module_name##__init_function_2 \
  52.         },
  53.       #include "modules.h"
  54.       #undef MODULE
  55.       { NULL, NULL, NULL, NULL, NULL, FALSE, NULL, NULL, NULL, NULL }
  56.     };
  57.  
  58. #endif
  59.